home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / dbfast20 / misc / bucle2.prg < prev    next >
Encoding:
Text File  |  1993-11-16  |  129 b   |  12 lines
  1. nvar = 1
  2. DO WHILE nvar < 10
  3.   CHKEVENT()
  4.   @ nvar,10 SAY 'Hola'
  5.   INC nvar
  6.   IF nvar < 5
  7.     nvar = 1
  8.   ENDIF
  9. ENDDO
  10.  
  11.  
  12.